Sub dataentry()
'
' dataentry Macro
'

'
    Range("C2").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Range("A3").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("C3").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("B3").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("C4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C3").Select
    ActiveSheet.Paste
    Sheets("Sheet1").Select
    Range("C5").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Sheet2").Select
    Range("D3").Select
    ActiveSheet.Paste
    Rows("3:3").Select
    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A3:D3").Select
    Range("D3").Activate
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("A11").Select
    Sheets("Sheet1").Select
    Range("C2:C5").Select
    Selection.ClearContents
    Range("C9").Select
End Sub
